﻿Imports System.IO
Public Class wfrmHTML3
    Inherits System.Web.UI.Page


    'Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    '    If Not Me.IsPostBack Then
    '        Dim filebrowser As New CKFinder.FileBrowser
    '        filebrowser.BasePath = "ckfinder/"
    '        filebrowser.SetupCKEditor(Me.CKEditorControl1)
    '        'CKEditorControl1.FilebrowserBrowseUrl = "BancoImagens/"
    '        'CKEditorControl1.FilebrowserUploadUrl = "BancoImagens/"

    '    End If
    'End Sub

    'Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    '    Me.resultado.InnerHtml = Me.CKEditorControl1.Text
    '    criaArquivo(Me.CKEditorControl1.Text)
    'End Sub

    'Private Sub criaArquivo(html As String)
    '    Dim fp As StreamWriter
    '    Try
    '        fp = File.CreateText(Server.MapPath(".\ArquivosHTML\") & "test.html")
    '        fp.WriteLine(html)
    '        fp.Close()
    '    Catch ex As Exception
    '        Throw ex
    '    End Try
    'End Sub

End Class